home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / INIT.FAS < prev    next >
Text File  |  1994-02-05  |  38KB  |  540 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #14Y(00 00 00 00 00 01 D5 D6 6D CB 30 DA 19 01) SYSTEM::DEBUG "SYSTEM")
  4. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  5.    (ARRAY ATOM BIGNUM BIT BIT-VECTOR CHARACTER COMMON COMPILED-FUNCTION COMPLEX CONS DOUBLE-FLOAT
  6.     FIXNUM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST LONG-FLOAT NIL NULL NUMBER PACKAGE
  7.     PATHNAME RANDOM-STATE RATIO RATIONAL READTABLE REAL SEQUENCE SHORT-FLOAT SIMPLE-ARRAY
  8.     SIMPLE-BIT-VECTOR SIMPLE-STRING SIMPLE-VECTOR SINGLE-FLOAT STANDARD-CHAR STREAM STRING
  9.     STRING-CHAR SYMBOL T VECTOR SATISFIES VALUES MOD SIGNED-BYTE UNSIGNED-BYTE LAMBDA-LIST-KEYWORDS
  10.     LAMBDA-PARAMETERS-LIMIT NIL T CALL-ARGUMENTS-LIMIT MULTIPLE-VALUES-LIMIT PI BOOLE-CLR BOOLE-SET
  11.     BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND BOOLE-IOR BOOLE-XOR BOOLE-EQV BOOLE-NAND BOOLE-NOR
  12.     BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-ORC1 BOOLE-ORC2 MOST-POSITIVE-FIXNUM MOST-NEGATIVE-FIXNUM
  13.     MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT LEAST-NEGATIVE-SHORT-FLOAT
  14.     MOST-NEGATIVE-SHORT-FLOAT MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT
  15.     LEAST-NEGATIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT MOST-POSITIVE-DOUBLE-FLOAT
  16.     LEAST-POSITIVE-DOUBLE-FLOAT LEAST-NEGATIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT
  17.     MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT LEAST-NEGATIVE-LONG-FLOAT
  18.     MOST-NEGATIVE-LONG-FLOAT SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON
  19.     LONG-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON
  20.     DOUBLE-FLOAT-NEGATIVE-EPSILON LONG-FLOAT-NEGATIVE-EPSILON CHAR-CODE-LIMIT CHAR-FONT-LIMIT
  21.     CHAR-BITS-LIMIT CHAR-CONTROL-BIT CHAR-META-BIT CHAR-SUPER-BIT CHAR-HYPER-BIT ARRAY-RANK-LIMIT
  22.     ARRAY-DIMENSION-LIMIT ARRAY-TOTAL-SIZE-LIMIT INTERNAL-TIME-UNITS-PER-SECOND *MACROEXPAND-HOOK*
  23.     *PACKAGE* *MODULES* *RANDOM-STATE* *EVALHOOK* *APPLYHOOK* + ++ +++ - * ** *** / // ///
  24.     *STANDARD-INPUT* *STANDARD-OUTPUT* *ERROR-OUTPUT* *QUERY-IO* *DEBUG-IO* *TERMINAL-IO*
  25.     *TRACE-OUTPUT* *READ-BASE* *READ-SUPPRESS* *READTABLE* *PRINT-ESCAPE* *PRINT-PRETTY*
  26.     *PRINT-CIRCLE* *PRINT-BASE* *PRINT-RADIX* *PRINT-CASE* *PRINT-GENSYM* *PRINT-LEVEL*
  27.     *PRINT-LENGTH* *PRINT-ARRAY* *READ-DEFAULT-FLOAT-FORMAT* *DEFAULT-PATHNAME-DEFAULTS*
  28.     *LOAD-PATHS* *LOAD-VERBOSE* *LOAD-PRINT* *LOAD-ECHO* *BREAK-ON-WARNINGS* *FEATURES* COERCE
  29.     TYPE-OF UPGRADED-ARRAY-ELEMENT-TYPE TYPEP SUBTYPEP NULL SYMBOLP ATOM CONSP LISTP NUMBERP
  30.     INTEGERP RATIONALP FLOATP REALP COMPLEXP CHARACTERP STRINGP BIT-VECTOR-P VECTORP
  31.     SIMPLE-VECTOR-P SIMPLE-STRING-P SIMPLE-BIT-VECTOR-P ARRAYP PACKAGEP FUNCTIONP
  32.     COMPILED-FUNCTION-P COMMONP EQ EQL EQUAL EQUALP NOT SYMBOL-VALUE SYMBOL-FUNCTION BOUNDP FBOUNDP
  33.     SPECIAL-FORM-P SET MAKUNBOUND FMAKUNBOUND GET-SETF-METHOD GET-SETF-METHOD-MULTIPLE-VALUE APPLY
  34.     FUNCALL MAPCAR MAPLIST MAPC MAPL MAPCAN MAPCON VALUES VALUES-LIST MACRO-FUNCTION MACROEXPAND
  35.     MACROEXPAND-1 PROCLAIM GET REMPROP SYMBOL-PLIST GETF GET-PROPERTIES SYMBOL-NAME MAKE-SYMBOL
  36.     COPY-SYMBOL GENSYM GENTEMP SYMBOL-PACKAGE KEYWORDP MAKE-PACKAGE IN-PACKAGE FIND-PACKAGE
  37.     PACKAGE-NAME PACKAGE-NICKNAMES RENAME-PACKAGE PACKAGE-USE-LIST PACKAGE-USED-BY-LIST
  38.     PACKAGE-SHADOWING-SYMBOLS LIST-ALL-PACKAGES INTERN FIND-SYMBOL UNINTERN EXPORT UNEXPORT IMPORT
  39.     SHADOWING-IMPORT SHADOW USE-PACKAGE UNUSE-PACKAGE FIND-ALL-SYMBOLS PROVIDE REQUIRE ZEROP PLUSP
  40.     MINUSP ODDP EVENP = /= < > <= >= MAX MIN + - * / 1+ 1- CONJUGATE GCD LCM EXP EXPT LOG SQRT
  41.     ISQRT ABS PHASE SIGNUM SIN COS TAN CIS ASIN ACOS ATAN SINH COSH TANH ASINH ACOSH ATANH FLOAT
  42.     RATIONAL RATIONALIZE NUMERATOR DENOMINATOR FLOOR CEILING TRUNCATE ROUND MOD REM FFLOOR FCEILING
  43.     FTRUNCATE FROUND DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS FLOAT-PRECISION
  44.     INTEGER-DECODE-FLOAT COMPLEX REALPART IMAGPART LOGIOR LOGXOR LOGAND LOGEQV LOGNAND LOGNOR
  45.     LOGANDC1 LOGANDC2 LOGORC1 LOGORC2 LOGNOT LOGTEST LOGBITP ASH LOGCOUNT INTEGER-LENGTH BYTE
  46.     BYTE-SIZE BYTE-POSITION LDB LDB-TEST MASK-FIELD DPB DEPOSIT-FIELD RANDOM MAKE-RANDOM-STATE
  47.     RANDOM-STATE-P STANDARD-CHAR-P GRAPHIC-CHAR-P STRING-CHAR-P ALPHA-CHAR-P UPPER-CASE-P
  48.     LOWER-CASE-P BOTH-CASE-P DIGIT-CHAR-P ALPHANUMERICP CHAR= CHAR/= CHAR< CHAR> CHAR<= CHAR>=
  49.     CHAR-EQUAL CHAR-NOT-EQUAL CHAR-LESSP CHAR-GREATERP CHAR-NOT-GREATERP CHAR-NOT-LESSP CHAR-CODE
  50.     CHAR-BITS CHAR-FONT CODE-CHAR MAKE-CHAR CHARACTER CHAR-UPCASE CHAR-DOWNCASE DIGIT-CHAR CHAR-INT
  51.     INT-CHAR CHAR-NAME NAME-CHAR CHAR-BIT SET-CHAR-BIT ELT SUBSEQ COPY-SEQ LENGTH REVERSE NREVERSE
  52.     MAKE-SEQUENCE CONCATENATE MAP SOME EVERY NOTANY NOTEVERY REDUCE FILL REPLACE REMOVE REMOVE-IF
  53.     REMOVE-IF-NOT DELETE DELETE-IF DELETE-IF-NOT REMOVE-DUPLICATES DELETE-DUPLICATES SUBSTITUTE
  54.     SUBSTITUTE-IF SUBSTITUTE-IF-NOT NSUBSTITUTE NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT FIND FIND-IF
  55.     FIND-IF-NOT POSITION POSITION-IF POSITION-IF-NOT COUNT COUNT-IF COUNT-IF-NOT MISMATCH SEARCH
  56.     SORT STABLE-SORT MERGE CAR CDR CAAR CADR CDAR CDDR CAAAR CAADR CADAR CADDR CDAAR CDADR CDDAR
  57.     CDDDR CAAAAR CAAADR CAADAR CAADDR CADAAR CADADR CADDAR CADDDR CDAAAR CDAADR CDADAR CDADDR
  58.     CDDAAR CDDADR CDDDAR CDDDDR CONS TREE-EQUAL ENDP LIST-LENGTH NTH FIRST SECOND THIRD FOURTH
  59.     FIFTH SIXTH SEVENTH EIGHTH NINTH TENTH REST NTHCDR LAST LIST LIST* MAKE-LIST APPEND COPY-LIST
  60.     COPY-ALIST COPY-TREE REVAPPEND NCONC NRECONC BUTLAST NBUTLAST LDIFF RPLACA RPLACD SUBST
  61.     SUBST-IF SUBST-IF-NOT NSUBST NSUBST-IF-NOT SUBLIS NSUBLIS MEMBER MEMBER-IF MEMBER-IF-NOT TAILP
  62.     ADJOIN UNION NUNION INTERSECTION NINTERSECTION SET-DIFFERENCE NSET-DIFFERENCE SET-EXCLUSIVE-OR
  63.     NSET-EXCLUSIVE-OR SUBSETP ACONS PAIRLIS ASSOC ASSOC-IF ASSOC-IF-NOT RASSOC RASSOC-IF
  64.     RASSOC-IF-NOT MAKE-HASH-TABLE HASH-TABLE-P GETHASH REMHASH MAPHASH CLRHASH HASH-TABLE-COUNT
  65.     SXHASH MAKE-ARRAY VECTOR AREF SVREF ARRAY-ELEMENT-TYPE ARRAY-RANK ARRAY-DIMENSION
  66.     ARRAY-DIMENSIONS ARRAY-TOTAL-SIZE ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX ADJUSTABLE-ARRAY-P
  67.     BIT SBIT BIT-AND BIT-IOR BIT-XOR BIT-EQV BIT-NAND BIT-NOR BIT-ANDC1 BIT-ANDC2 BIT-ORC1 BIT-ORC2
  68.     BIT-NOT ARRAY-HAS-FILL-POINTER-P FILL-POINTER VECTOR-PUSH VECTOR-PUSH-EXTEND VECTOR-POP
  69.     ADJUST-ARRAY CHAR SCHAR STRING= STRING-EQUAL STRING< STRING> STRING<= STRING>= STRING/=
  70.     STRING-LESSP STRING-GREATERP STRING-NOT-GREATERP STRING-NOT-LESSP STRING-NOT-EQUAL MAKE-STRING
  71.     STRING-TRIM STRING-LEFT-TRIM STRING-RIGHT-TRIM STRING-UPCASE STRING-DOWNCASE STRING-CAPITALIZE
  72.     NSTRING-UPCASE NSTRING-DOWNCASE NSTRING-CAPITALIZE STRING EVAL EVALHOOK APPLYHOOK CONSTANTP
  73.     MAKE-SYNONYM-STREAM MAKE-BROADCAST-STREAM MAKE-CONCATENATED-STREAM MAKE-TWO-WAY-STREAM
  74.     MAKE-ECHO-STREAM MAKE-STRING-INPUT-STREAM MAKE-STRING-OUTPUT-STREAM GET-OUTPUT-STREAM-STRING
  75.     STREAMP INPUT-STREAM-P OUTPUT-STREAM-P STREAM-ELEMENT-TYPE INTERACTIVE-STREAM-P CLOSE
  76.     COPY-READTABLE READTABLEP SET-SYNTAX-FROM-CHAR SET-MACRO-CHARACTER GET-MACRO-CHARACTER
  77.     MAKE-DISPATCH-MACRO-CHARACTER SET-DISPATCH-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER READ
  78.     READ-PRESERVING-WHITESPACE READ-DELIMITED-LIST READ-LINE READ-CHAR UNREAD-CHAR PEEK-CHAR LISTEN
  79.     READ-CHAR-NO-HANG CLEAR-INPUT READ-FROM-STRING PARSE-INTEGER READ-BYTE WRITE PRIN1 PRINT PPRINT
  80.     PRINC WRITE-TO-STRING PRIN1-TO-STRING PRINC-TO-STRING WRITE-CHAR WRITE-STRING WRITE-LINE TERPRI
  81.     FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT CLEAR-OUTPUT WRITE-BYTE FORMAT Y-OR-N-P YES-OR-NO-P
  82.     PATHNAME TRUENAME PARSE-NAMESTRING MERGE-PATHNAMES MAKE-PATHNAME PATHNAMEP PATHNAME-HOST
  83.     PATHNAME-DEVICE PATHNAME-DIRECTORY PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION NAMESTRING
  84.     FILE-NAMESTRING DIRECTORY-NAMESTRING HOST-NAMESTRING ENOUGH-NAMESTRING USER-HOMEDIR-PATHNAME
  85.     OPEN RENAME-FILE DELETE-FILE PROBE-FILE FILE-WRITE-DATE FILE-AUTHOR FILE-POSITION FILE-LENGTH
  86.     LOAD DIRECTORY ERROR CERROR WARN BREAK COMPILE COMPILE-FILE DISASSEMBLE DOCUMENTATION VARIABLE
  87.     STRUCTURE TYPE DESCRIBE INSPECT ROOM ED DRIBBLE APROPOS APROPOS-LIST GET-DECODED-TIME
  88.     GET-UNIVERSAL-TIME DECODE-UNIVERSAL-TIME ENCODE-UNIVERSAL-TIME GET-INTERNAL-RUN-TIME
  89.     GET-INTERNAL-REAL-TIME SLEEP LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-TYPE
  90.     MACHINE-VERSION MACHINE-INSTANCE SOFTWARE-TYPE SOFTWARE-VERSION SHORT-SITE-NAME LONG-SITE-NAME
  91.     IDENTITY EVAL-WHEN QUOTE FUNCTION SETQ PROGN LET LET* LOCALLY COMPILER-LET PROGV FLET LABELS
  92.     MACROLET IF BLOCK RETURN-FROM TAGBODY GO MULTIPLE-VALUE-CALL MULTIPLE-VALUE-PROG1 CATCH
  93.     UNWIND-PROTECT THROW DECLARE THE LOAD-TIME-VALUE DEFTYPE DEFUN DEFVAR DEFPARAMETER DEFCONSTANT
  94.     AND OR PSETQ SETF PSETF SHIFTF ROTATEF DEFINE-MODIFY-MACRO DEFSETF DEFINE-SETF-METHOD PROG1
  95.     PROG2 WHEN UNLESS COND CASE TYPECASE OTHERWISE RETURN LOOP DO DO* DOLIST DOTIMES PROG PROG*
  96.     MULTIPLE-VALUE-LIST MULTIPLE-VALUE-BIND MULTIPLE-VALUE-SETQ DEFMACRO REMF DO-SYMBOLS
  97.     DO-EXTERNAL-SYMBOLS DO-ALL-SYMBOLS INCF DECF PUSH PUSHNEW POP DEFSTRUCT WITH-OPEN-STREAM
  98.     WITH-INPUT-FROM-STRING WITH-OUTPUT-TO-STRING WITH-OPEN-FILE CHECK-TYPE ASSERT ETYPECASE
  99.     CTYPECASE ECASE CCASE TRACE UNTRACE STEP TIME EVAL LOAD COMPILE SPECIAL TYPE FTYPE FUNCTION
  100.     INLINE NOTINLINE IGNORE OPTIMIZE SPEED SPACE SAFETY COMPILATION-SPEED DEBUG DECLARATION COMPILE
  101.     INTERPRETER COMPILER
  102.   ))
  103. #Y(#:TOP-LEVEL-FORM-4 #12Y(00 00 00 00 00 01 D5 D6 31 75 19 01) LAMBDA-LIST-KEYWORDS
  104.    (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT)
  105.   )
  106. #Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01) #.LAMBDA-LIST-KEYWORDS)
  107. #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) EXIT #.#'SYSTEM::%EXIT)
  108. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) QUIT #.#'SYSTEM::%EXIT)
  109. #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) BYE #.#'SYSTEM::%EXIT)
  110. #Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01) (EXIT QUIT BYE))
  111. #Y(#:TOP-LEVEL-FORM-10 #11Y(00 00 00 00 00 01 D5 30 5B 19 01) (SPECIAL *FEATURES*))
  112. #Y(#:TOP-LEVEL-FORM-11 #14Y(00 00 00 00 00 01 67 00 37 01 30 D8 19 01) *FEATURES*)
  113. #Y(#:TOP-LEVEL-FORM-12 #14Y(00 00 00 00 00 01 67 00 37 01 30 D6 19 01) *FEATURES*)
  114. #Y(#:TOP-LEVEL-FORM-13 #14Y(00 00 00 00 00 01 D5 D6 37 01 30 DE 19 01) "SYSTEM" ("SYS" "COMPILER"))
  115. #Y(#:TOP-LEVEL-FORM-14 #11Y(00 00 00 00 00 01 00 0F 00 19 01) *COMPILING*)
  116. #Y(#:TOP-LEVEL-FORM-15 #14Y(00 00 00 00 00 01 D5 37 01 D6 30 DE 19 01) "CLOS" ("LISP"))
  117. #Y(#:TOP-LEVEL-FORM-16 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  118.    (SLOT-VALUE SLOT-BOUNDP SLOT-MAKUNBOUND SLOT-EXISTS-P WITH-SLOTS WITH-ACCESSORS FIND-CLASS
  119.     CLASS-OF DEFCLASS DEFMETHOD CALL-NEXT-METHOD NEXT-METHOD-P DEFGENERIC GENERIC-FUNCTION
  120.     GENERIC-FLET GENERIC-LABELS CLASS-NAME NO-APPLICABLE-METHOD NO-PRIMARY-METHOD NO-NEXT-METHOD
  121.     FIND-METHOD ADD-METHOD REMOVE-METHOD COMPUTE-APPLICABLE-METHODS METHOD-QUALIFIERS
  122.     FUNCTION-KEYWORDS SLOT-MISSING SLOT-UNBOUND PRINT-OBJECT DESCRIBE-OBJECT MAKE-INSTANCE
  123.     INITIALIZE-INSTANCE REINITIALIZE-INSTANCE SHARED-INITIALIZE STANDARD-CLASS STRUCTURE-CLASS
  124.     BUILT-IN-CLASS STANDARD-OBJECT STANDARD-GENERIC-FUNCTION STANDARD-METHOD STANDARD
  125.   ))
  126. #Y(#:TOP-LEVEL-FORM-17 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  127. #Y(#:TOP-LEVEL-FORM-18 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) REMOVE-OLD-DEFINITIONS
  128.    #Y(REMOVE-OLD-DEFINITIONS
  129.       #106Y(01 00 00 00 00 02 A8 88 52 80 45 A8 88 51 04 A8 89 58 13 A8 6E 7C 8E 00 3B 16 01 1C 09
  130.             D7 D8 AA 6B 04 AB 2C 04 05 A8 30 55 A8 DB 31 7B A8 DC 37 01 8B 76 06 A8 DD 5F 2C 03 09
  131.             A8 DF 37 01 8B 76 05 A8 DF 60 31 7A A8 E0 37 01 8A 76 14 00 19 02 D5 A9 5E 01 14 6D CC
  132.             D6 30 FF 16 01 1C 48 1A FF BC E1 A9 2F 0D A8 2E 0E 19 02
  133.            )
  134.       "~S is a special form and may not be redefined." "LISP" "The old definition will be lost"
  135.       "Redefining the COMMON LISP ~A ~S" FBOUND-STRING CERROR MACRO DOCUMENTATION-STRINGS FUNCTION
  136.       %SET-DOCUMENTATION INLINE-EXPANSION TRACED-DEFINITION
  137.       "DEFUN/DEFMACRO: redefining ~S; it was traced!" WARN UNTRACE2
  138.   )  )
  139. #Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BLOCK-NAME
  140.    REMOVE-OLD-DEFINITIONS #Y(BLOCK-NAME #17Y(01 00 00 00 00 02 99 1F 05 99 57 56 19 02 99 19 02))
  141.   )
  142. #Y(#:TOP-LEVEL-FORM-20-1 #12Y(00 00 00 00 00 01 D5 30 5B 3D 19 01) (SPECIAL *KEYWORD-PACKAGE*))
  143. #Y(#:TOP-LEVEL-FORM-20-2 #14Y(00 00 00 00 00 01 D5 30 CB 0F 01 3D 19 01) "KEYWORD"
  144.    *KEYWORD-PACKAGE*
  145.   )
  146. #Y(#:TOP-LEVEL-FORM-20-3 #12Y(00 00 00 00 00 01 D5 30 5B 3D 19 01) (SPECIAL *FENV*))
  147. #Y(#:TOP-LEVEL-FORM-20-4 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) FENV-ASSOC
  148.    REMOVE-OLD-DEFINITIONS
  149.    #Y(FENV-ASSOC
  150.       #67Y(02 00 00 00 00 03 8F 01 37 14 8A 20 04 D7 A9 5E 01 A8 6E 41 6E 8A D5 1A 15 AA A8 31 89
  151.            5A 19 05 AB AB 9A 5A 14 88 FF 71 D6 A8 7E 02 33 00 A7 A9 8D 01 2B 6C AB AB 9A 5A 14 28
  152.            02 07 00 8E 01 49 02 19 03
  153.           )
  154.       0. 2. "~S is an invalid function environment"
  155.   )  )
  156. #Y(#:TOP-LEVEL-FORM-20-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) GLOBAL-IN-FENV-P
  157.    REMOVE-OLD-DEFINITIONS
  158.    #Y(GLOBAL-IN-FENV-P #14Y(02 00 00 00 00 03 A9 A9 6C 00 02 55 19 03) FENV-ASSOC)
  159.   )
  160. #Y(#:TOP-LEVEL-FORM-20-6 #12Y(00 00 00 00 00 01 D5 30 5B 3D 19 01) (SPECIAL *VENV*))
  161. #Y(#:TOP-LEVEL-FORM-20-7 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) VENV-ASSOC
  162.    REMOVE-OLD-DEFINITIONS
  163.    #Y(VENV-ASSOC
  164.       #74Y(02 00 00 00 00 03 8F 01 35 14 8A 20 04 D7 A9 5E 01 A8 6E 41 6E 8A D5 1A 13 AA A8 31 89
  165.            5A 19 05 AB AB 9A 5A 21 73 D6 A8 7E 02 33 00 A7 A9 8D 01 2B 6E AB AB 9A 5A 14 28 02 07
  166.            00 8E 01 4B A9 30 50 1E 05 A9 30 4F 19 03 19 03
  167.           )
  168.       0. 2. "~S is an invalid variable environment"
  169.   )  )
  170. #Y(#:TOP-LEVEL-FORM-20-8 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-CONS
  171.    REMOVE-OLD-DEFINITIONS
  172.    #Y(%EXPAND-CONS #25Y(05 00 00 00 00 06 8E 03 0A 8E 01 07 AC 00 14 3F 02 19 06 AB 9B 76 02 1A 75)
  173.   )  )
  174. #Y(#:TOP-LEVEL-FORM-20-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-FORM
  175.    REMOVE-OLD-DEFINITIONS
  176.    #Y(%EXPAND-FORM
  177.       #1101Y(01 00 00 00 00 02 99 20 83 D6 5F A9 8B 03 0A A9 67 00 2F 01 F6 14 84 02 07 A9 00 14 3F
  178.              02 19 03 A7 D8 6E 27 02 1A 74 99 25 07 83 97 AA 00 1A 83 F0 CC 1A 80 4A 98 1F 05 90 00
  179.              23 0B 74 E3 CD 1A 83 E8 05 00 03 57 74 67 05 6C 06 A7 02 21 07 A7 8A 07 03 8E 00 5F 05
  180.              00 03 75 5F 3F 02 16 01 1A 83 A5 94 08 44 AB DF 5F 05 00 03 57 57 20 35 05 00 03 57 74
  181.              84 04 4B 05 00 03 57 56 20 0D CF 14 E2 63 00 03 05 00 03 57 74 5E 03 94 08 44 05 01 03
  182.              75 05 01 03 57 74 2E 10 40 05 01 03 57 75 5F 45 1A 83 63 94 08 44 05 01 03 75 05 01 03
  183.              57 74 5F 94 08 44 05 02 03 57 75 05 02 03 57 57 74 2E 10 40 05 02 03 57 57 75 5F 45 1A
  184.              81 B2 E7 E8 E9 9E 57 57 76 30 5C 42 14 77 02 5C 02 1A 83 40 E6 9C 57 74 37 03 88 B3 65
  185.              94 08 44 AB 05 00 03 56 1A 81 76 0E 00 10 00 9E 57 75 2E 15 94 08 44 AE 05 00 06 74 5F
  186.              94 08 44 05 01 06 75 05 01 06 57 74 2E 16 1A 20 0E 00 10 00 9E 57 75 2E 15 94 08 44 AE
  187.              05 00 06 74 5F 94 08 44 05 01 06 75 05 01 06 57 74 2E 17 40 05 01 06 57 75 2E 09 1A 80
  188.              5A 0E 00 10 00 91 06 2E 15 94 08 44 AE 05 00 06 74 5F 05 00 06 75 2E 09 1A 80 42 0E 00
  189.              10 00 9E 57 57 75 2E 15 94 08 44 AE ED 5F 94 08 44 05 01 06 75 05 01 06 57 74 5F 94 08
  190.              44 05 02 06 57 75 05 02 06 57 57 74 27 FE 7E 40 05 02 06 57 74 2E 19 05 02 06 57 57 75
  191.              2E 09 40 45 40 45 40 45 11 19 04 95 1A 9C 57 74 6F 00 17 95 1B 9D 57 74 32 00 17 13 E9
  192.              05 00 03 57 57 76 68 FE 4A 60 3F 02 11 18 01 19 04 94 08 44 AB 05 00 03 74 5F 05 00 03
  193.              75 2E 1C 1A 82 31 94 08 44 AD 05 00 05 74 5F 94 08 44 05 01 05 75 05 01 05 57 74 5F 63
  194.              01 01 63 01 00 45 40 45 19 06 99 1A 1C 99 56 1A 18 9B 57 75 2E 09 41 02 9D 57 74 A9 86
  195.              1D 4A 99 1F 68 99 57 1C 67 E9 9A 58 14 60 3F 02 19 06 03 20 1A 07 90 03 23 1F 77 03 21
  196.              14 A7 6D 58 A8 9E 57 76 67 00 67 05 6F 02 00 72 02 68 FD CB 60 3F 02 19 05 91 03 84 1E
  197.              5B 94 08 44 AB 05 00 03 74 5F 05 00 03 75 2E 22 1A 81 B0 61 24 9C 1A 80 98 9B 57 74 84
  198.              23 74 94 08 44 AB 03 25 14 5F 94 08 44 05 01 03 75 05 01 03 57 74 5F 05 01 03 57 75 2E
  199.              09 40 45 1A 81 83 94 08 44 AB 05 00 03 74 5F 05 00 03 75 2E 26 1A 81 71 00 1A 81 85 9B
  200.              57 56 1A 81 7B 9B 57 1C 72 9B 57 57 1C 71 94 08 44 AB 05 00 03 56 1A 81 4B 9B 57 56 1C
  201.              39 9B 57 74 6B 27 94 08 44 AC 05 00 04 74 5F 94 08 44 05 01 04 75 05 01 04 57 74 2E 28
  202.              40 61 29 05 01 00 36 00 10 05 05 01 04 57 75 2E 09 11 40 45 40 45 19 05 9B 57 56 1B 08
  203.              E9 9C 57 57 58 1A 81 21 9B 57 74 6B 27 61 29 99 36 00 10 05 94 08 44 AF 05 00 07 74 5F
  204.              94 08 44 05 01 07 75 05 01 07 57 74 2E 28 40 05 01 07 57 75 2E 09 40 45 40 45 11 19 05
  205.              9B 57 74 5F 1A 25 03 2B 1A 80 52 03 2C 1A 80 67 90 01 98 1F 71 90 00 8B 03 6C 98 57 1F
  206.              68 A7 6B 2A 90 01 9B 58 58 F7 16 01 7F 01 99 20 62 8E 01 5A 61 29 67 05 9A 76 31 43 36
  207.              00 10 05 D4 1A 80 48 9B 57 74 5F 99 1F 2A 90 01 98 1F 0E 90 00 8B 03 09 98 57 1F 05 98
  208.              57 57 1C 06 03 2E 14 A8 5E 01 98 57 74 6B 2D 90 01 9B 58 58 F7 16 01 7F 01 1A 53 8F 01
  209.              06 03 2F 14 A9 5E 01 61 29 67 00 9A 76 31 43 36 00 10 00 03 30 14 A1 57 57 76 68 FC 49
  210.              60 3F 02 11 19 06 A8 8B 03 04 A8 88 52 2D A8 8B 03 29 A8 7C 58 00 1C 23 A7 AB 67 00 67
  211.              05 32 02 00 1A 38 90 01 A7 85 04 80 5C A7 67 05 6C 06 A7 02 21 FC 36 A7 8A 07 03 8E 00
  212.              13 94 08 44 AB 05 00 01 14 5F 05 00 03 75 2E 09 40 45 19 04 98 1F 18 90 00 24 0B 13 91
  213.              00 AB 0E 05 14 35 02 14 27 FB E7 14 02 14 3F 02 19 04 61 31 03 32 14 67 05 5E 02 94 08
  214.              44 AA 63 00 00 2E 10 40 05 00 02 75 2E 09 40 45 19 03 98 20 69 61 33 61 32 AB 5E 02
  215.             )
  216.       *VENV* VENV-ASSOC SYMBOL-MACRO-P 0. FUNCTION-NAME-P *FENV* FENV-ASSOC
  217.       #S(HASH-TABLE EQ (SYMBOL-MACROLET . 835.) (MACROLET . 770.) (LABELS . 707.) (FLET . 650.)
  218.          (PROGN . 630.) (TAGBODY . 602.) (MULTIPLE-VALUE-SETQ . 563.) (PSETQ . 534.) (SETQ . 534.)
  219.          (BLOCK . 468.) (COND . 410.) (COMPILER-LET . 375.) (MULTIPLE-VALUE-BIND . 304.)
  220.          (LOCALLY . 278.) (LET* . 235.) (LET . 201.) (EVAL-WHEN . 181.) (FUNCTION . 56.)
  221.          (LOAD-TIME-VALUE . 2.) (DECLARE . 2.) (GO . 2.) (QUOTE . 2.) (THE . 190.)
  222.          (RETURN-FROM . 190.)
  223.         )
  224.       %EXPAND-CONS %EXPAND-LIST FUNCTION MACRO "~S: ~S is illegal since ~S is a local macro"
  225.       %EXPAND "~S: invalid function environment ~S" "~S: ~S is invalid since ~S is not a symbol"
  226.       %EXPAND-LAMBDA COMPILE VALUES-LIST QUOTE PROGN %EXPAND-SPECIAL-DECLARATIONS %EXPAND-VARSPEZ
  227.       %EXPAND-VARSPEZ* MULTIPLE-VALUE-BIND %EXPAND-LEXICAL-VARIABLES %EXPAND-VARSPEC-VAR
  228.       %EXPAND-VARSPEC-VAL %EXPAND-COND %RETURN-P %EXPAND-SETQLIST-MACROP SETQ SETF PSETF
  229.       %EXPAND-SETQLIST %EXPAND-VARLIST-MACROP MULTIPLE-VALUE-SETF MULTIPLE-VALUE-SETQ
  230.       %EXPAND-TAGBODY %EXPAND-FUNDEFS-1 %EXPAND-FUNDEFS-2 #.#'VECTOR MAKE-MACRO-EXPANDERCONS
  231.       "illegal syntax in MACROLET: ~S" "code after MACROLET contains a dotted list, ending with ~S"
  232.       MAKE-SYMBOL-MACRO "illegal syntax in SYMBOL-MACROLET: ~S"
  233.       "code after SYMBOL-MACROLET contains a dotted list, ending with ~S" LOCALLY
  234.       "bad function environment occurred in ~S: ~S" %EXPAND-FORM "~S: invalid form ~S"
  235.   )  )
  236. #Y(#:TOP-LEVEL-FORM-20-10 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-LIST
  237.    REMOVE-OLD-DEFINITIONS
  238.    #Y(%EXPAND-LIST
  239.       #43Y(01 00 00 00 00 02 99 1F 19 94 01 44 A9 05 00 01 74 2E 02 40 05 00 01 75 27 6C 40 45 19
  240.            02 D5 A9 5E 01 8E 01 79 01 02 3F 02 19 02
  241.           )
  242.       "code contains a dotted list, ending with ~S" %EXPAND-CONS %EXPAND-FORM
  243.   )  )
  244. #Y(#:TOP-LEVEL-FORM-20-11 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01)
  245.    %EXPAND-LEXICAL-VARIABLES REMOVE-OLD-DEFINITIONS
  246.    #Y(%EXPAND-LEXICAL-VARIABLES
  247.       #53Y(01 00 00 00 00 02 8E 01 03 00 19 02 D5 5F AA 1A 0E 90 00 A7 5F 77 02 AA 7C A2 02 16 01
  248.            7F 00 98 20 6F 16 01 A7 7C A3 00 67 01 77 01 32 02 21 36 00 0F 01 19 02
  249.           )
  250.       #.#'VECTOR *VENV*
  251.   )  )
  252. #Y(#:TOP-LEVEL-FORM-20-12 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01)
  253.    %EXPAND-SPECIAL-DECLARATIONS REMOVE-OLD-DEFINITIONS
  254.    #Y(%EXPAND-SPECIAL-DECLARATIONS
  255.       #87Y(01 00 00 00 00 02 A8 5F 67 00 67 01 6F 02 00 30 60 41 02 5F A8 6E 43 A7 1A 31 91 00 A7
  256.            1A 11 A7 80 06 16 01 1A 08 90 00 A7 8A 03 73 16 01 7F 00 98 20 73 16 03 1A 12 90 00 98
  257.            1F 0B A7 30 9C 57 1B 05 90 00 23 02 53 16 01 7F 00 98 20 69 16 02 A7 6E 43 2E 03 19 05
  258.           )
  259.       *VENV* *FENV* SPECIAL %EXPAND-LEXICAL-VARIABLES
  260.   )  )
  261. #Y(#:TOP-LEVEL-FORM-20-13 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-LAMBDA
  262.    REMOVE-OLD-DEFINITIONS
  263.    #Y(%EXPAND-LAMBDA
  264.       #32Y(01 00 00 00 00 02 90 01 24 00 10 94 03 44 A9 D5 5F 05 00 01 75 2E 04 40 45 19 02 D6 D7
  265.            AA 5E 02
  266.           )
  267.       LAMBDA "~S: ~S should be a lambda expression" %EXPAND-FORM %EXPAND-CONS %EXPAND-LAMBDABODY
  268.   )  )
  269. #Y(#:TOP-LEVEL-FORM-20-14 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-LAMBDABODY
  270.    REMOVE-OLD-DEFINITIONS
  271.    #Y(%EXPAND-LAMBDABODY
  272.       #92Y(01 00 00 00 00 02 91 01 98 1F 10 90 00 A7 8B 01 06 90 00 C0 55 1B 35 16 01 1B 3B 0E 02
  273.            10 02 90 05 6B 03 D5 D6 AF 77 02 77 02 91 07 2E 04 78 02 60 3F 02 11 19 03 90 00 C1 55
  274.            16 03 1C 5D 1A 16 90 00 A7 8A 01 70 16 03 1C 51 1A 0A 91 00 A7 8A 01 6E 16 02 1C 45 A9
  275.            5F 3F 02 19 03
  276.           )
  277.       DECLARE SOURCE *VENV* %EXPAND-LAMBDALIST %EXPAND-LIST
  278.   )  )
  279. #Y(#:TOP-LEVEL-FORM-20-15 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-LAMBDALIST
  280.    REMOVE-OLD-DEFINITIONS
  281.    #Y(%EXPAND-LAMBDALIST
  282.       #68Y(01 00 00 00 00 02 99 1F 32 94 01 44 A9 05 00 01 74 2E 02 40 05 00 01 74 A7 D8 D9 37 02
  283.            88 B3 0B A7 6B 05 5F 67 06 32 03 00 0F 06 16 01 05 00 01 75 27 53 40 45 19 02 D5 A9 5E
  284.            01 8E 01 79 01 02 3F 02 19 02
  285.           )
  286.       "lambda list must not end with the atom ~S" %EXPAND-CONS %EXPAND-PARSPEZ
  287.       #.LAMBDA-LIST-KEYWORDS #.#'EQ %EXPAND-VARSPEC-VAR *VENV*
  288.   )  )
  289. #Y(#:TOP-LEVEL-FORM-20-16 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-PARSPEZ
  290.    REMOVE-OLD-DEFINITIONS
  291.    #Y(%EXPAND-PARSPEZ
  292.       #54Y(01 00 00 00 00 02 99 1F 27 99 57 1F 23 94 00 44 A9 05 00 01 74 5F 94 00 44 05 01 01 75
  293.            05 01 01 57 74 2E 01 40 05 01 01 57 75 5F 45 40 45 19 02 A8 5F 3F 02 19 02
  294.           )
  295.       %EXPAND-CONS %EXPAND-FORM
  296.   )  )
  297. #Y(#:TOP-LEVEL-FORM-20-17 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-VARSPEZ
  298.    REMOVE-OLD-DEFINITIONS
  299.    #Y(%EXPAND-VARSPEZ
  300.       #69Y(01 00 01 00 00 08 3C 01 9A 1F 26 94 04 44 AA 05 00 02 74 2E 05 40 05 00 02 75 5F 05 00
  301.            02 74 6B 06 05 00 01 78 02 27 5E 40 45 19 03 D5 D6 AB 5E 02 8E 02 78 D7 67 03 9B 76 31
  302.            43 36 00 0F 03 01 02 3F 02 19 03
  303.           )
  304.       "~S: variable list ends with the atom ~S" LET #.#'VECTOR *VENV* %EXPAND-CONS %EXPAND-PARSPEZ
  305.       %EXPAND-VARSPEC-VAR
  306.   )  )
  307. #Y(#:TOP-LEVEL-FORM-20-18 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-VARSPEZ*
  308.    REMOVE-OLD-DEFINITIONS
  309.    #Y(%EXPAND-VARSPEZ*
  310.       #58Y(01 00 00 00 00 02 99 1F 28 94 02 44 A9 05 00 01 74 2E 03 40 05 00 01 74 6B 04 5F 67 05
  311.            32 03 00 0F 05 05 00 01 75 27 5E 40 45 19 02 D5 D6 AA 5E 02 8E 01 78 01 02 3F 02 19 02
  312.           )
  313.       "~S: variable list ends with the atom ~S" LET* %EXPAND-CONS %EXPAND-PARSPEZ
  314.       %EXPAND-VARSPEC-VAR *VENV*
  315.   )  )
  316. #Y(#:TOP-LEVEL-FORM-20-19 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-VARSPEC-VAR
  317.    REMOVE-OLD-DEFINITIONS
  318.    #Y(%EXPAND-VARSPEC-VAR #16Y(01 00 00 00 00 02 99 1F 04 99 56 19 02 99 19 02))
  319.   )
  320. #Y(#:TOP-LEVEL-FORM-20-20 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-VARSPEC-VAL
  321.    REMOVE-OLD-DEFINITIONS
  322.    #Y(%EXPAND-VARSPEC-VAL #19Y(01 00 00 00 00 02 99 1F 07 99 57 74 30 5C 19 02 00 19 02))
  323.   )
  324. #Y(#:TOP-LEVEL-FORM-20-21 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-COND
  325.    REMOVE-OLD-DEFINITIONS
  326.    #Y(%EXPAND-COND
  327.       #36Y(01 00 00 00 00 02 99 1F 15 94 00 44 A9 05 00 01 74 2E 01 40 05 00 01 75 27 6C 40 45 19
  328.            02 A8 5F 3F 02 19 02
  329.           )
  330.       %EXPAND-CONS %EXPAND-LIST
  331.   )  )
  332. #Y(#:TOP-LEVEL-FORM-20-22 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %RETURN-P
  333.    REMOVE-OLD-DEFINITIONS
  334.    #Y(%RETURN-P
  335.       #66Y(02 00 00 00 00 03 99 1F 33 90 01 98 1F 28 90 00 24 00 06 98 57 74 9C 21 26 98 56 1F 07
  336.            AA 90 01 27 64 1B 1B 90 00 24 01 06 98 57 74 9C 21 07 AA 91 01 27 52 1B 09 16 01 7F 01
  337.            1A 4A 00 19 03 02 19 04
  338.           )
  339.       RETURN-FROM BLOCK
  340.   )  )
  341. #Y(#:TOP-LEVEL-FORM-20-23 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01)
  342.    %EXPAND-VARLIST-MACROP REMOVE-OLD-DEFINITIONS
  343.    #Y(%EXPAND-VARLIST-MACROP
  344.       #34Y(01 00 00 00 00 02 A8 31 01 1E 15 90 01 8B 03 0A 90 01 67 00 6C 01 2E 02 1D 06 91 01 28
  345.            01 03 66 19 02
  346.           )
  347.       *VENV* VENV-ASSOC SYMBOL-MACRO-P
  348.   )  )
  349. #Y(#:TOP-LEVEL-FORM-20-24 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01)
  350.    %EXPAND-SETQLIST-MACROP REMOVE-OLD-DEFINITIONS
  351.    #Y(%EXPAND-SETQLIST-MACROP
  352.       #41Y(01 00 00 00 00 02 A8 31 01 1E 1C 91 01 31 01 1E 16 90 01 8B 03 0A 90 01 67 00 6C 01 2E
  353.            02 1D 07 99 57 75 28 01 03 5F 19 02
  354.           )
  355.       *VENV* VENV-ASSOC SYMBOL-MACRO-P
  356.   )  )
  357. #Y(#:TOP-LEVEL-FORM-20-25 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-SETQLIST
  358.    REMOVE-OLD-DEFINITIONS
  359.    #Y(%EXPAND-SETQLIST
  360.       #56Y(01 00 00 00 00 02 99 1F 29 99 57 1F 25 94 00 44 A9 05 00 01 74 5F 94 00 44 05 01 01 75
  361.            05 01 01 57 74 2E 01 40 05 01 01 57 75 27 5A 40 45 40 45 19 02 A8 5F 3F 02 19 02
  362.           )
  363.       %EXPAND-CONS %EXPAND-FORM
  364.   )  )
  365. #Y(#:TOP-LEVEL-FORM-20-26 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-TAGBODY
  366.    REMOVE-OLD-DEFINITIONS
  367.    #Y(%EXPAND-TAGBODY
  368.       #77Y(01 00 00 00 00 02 99 1F 21 99 56 1F 23 90 01 2E 01 41 02 99 1F 2D 94 00 44 AB 63 00 01
  369.            63 00 00 05 00 03 75 27 60 40 45 19 04 A8 5F 3F 02 19 02 94 00 44 A9 05 00 01 74 5F 05
  370.            00 01 75 27 47 40 45 19 02 91 03 68 FF BE 60 3F 02 19 04
  371.           )
  372.       %EXPAND-CONS %EXPAND-FORM
  373.   )  )
  374. #Y(#:TOP-LEVEL-FORM-20-27 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-FUNDEFS-1
  375.    REMOVE-OLD-DEFINITIONS
  376.    #Y(%EXPAND-FUNDEFS-1
  377.       #51Y(01 00 00 00 00 02 99 1F 1D 90 01 98 1F 21 90 00 85 02 1C 98 57 1F 18 90 00 5F 91 04 27
  378.            68 5D 02 19 03 D5 A9 5E 01 8E 01 79 67 01 5C 01 19 02 D8 A8 5E 01
  379.           )
  380.       "FLET/LABELS: code contains a dotted list, ending with ~S" *FENV* FUNCTION-NAME-P
  381.       "illegal syntax in FLET/LABELS: ~S"
  382.   )  )
  383. #Y(#:TOP-LEVEL-FORM-20-28 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) %EXPAND-FUNDEFS-2
  384.    REMOVE-OLD-DEFINITIONS
  385.    #Y(%EXPAND-FUNDEFS-2
  386.       #51Y(01 00 00 00 00 02 99 1F 24 90 01 94 00 44 AA 94 00 44 63 01 00 05 01 00 74 5F 05 01 00
  387.            75 2E 01 40 45 40 05 00 02 75 27 5D 40 45 19 03 A8 5F 3F 02 19 02
  388.           )
  389.       %EXPAND-CONS %EXPAND-LAMBDABODY
  390.   )  )
  391. #Y(#:TOP-LEVEL-FORM-20-29 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01)
  392.    %EXPAND-LAMBDABODY-MAIN REMOVE-OLD-DEFINITIONS
  393.    #Y(%EXPAND-LAMBDABODY-MAIN #19Y(03 00 00 00 00 04 9A 10 00 9C 10 01 B0 2E 02 12 02 19 04) *VENV*
  394.       *FENV* %EXPAND-LAMBDABODY
  395.   )  )
  396. #Y(#:TOP-LEVEL-FORM-20-30 #9Y(00 00 00 00 00 01 3D 19 01))
  397. #Y(#:TOP-LEVEL-FORM-21-1 #12Y(00 00 00 00 00 01 D5 30 5B 3D 19 01) (SPECIAL *LOAD-PATHS*))
  398. #Y(#:TOP-LEVEL-FORM-21-2 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-PATHS*)
  399. #Y(#:TOP-LEVEL-FORM-21-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) SEARCH-FILE
  400.    REMOVE-OLD-DEFINITIONS
  401.    #Y(SEARCH-FILE
  402.       #49Y(02 00 00 00 00 03 5F A9 6E 42 1A 1B A7 5C 01 1A 0D 90 00 AC A8 37 01 6D EE A7 88 F3 6F
  403.            00 F6 AA 7C A2 02 16 01 7F 00 98 20 67 16 01 A7 30 A3 19 04
  404.   )  )    )
  405. #Y(#:TOP-LEVEL-FORM-21-4 #12Y(00 00 00 00 00 01 D5 30 5B 3D 19 01) (SPECIAL *LOAD-VERBOSE*))
  406. #Y(#:TOP-LEVEL-FORM-21-5 #12Y(00 00 00 00 00 01 02 0F 00 3D 19 01) *LOAD-VERBOSE*)
  407. #Y(#:TOP-LEVEL-FORM-21-6 #12Y(00 00 00 00 00 01 D5 30 5B 3D 19 01) (SPECIAL *LOAD-PRINT*))
  408. #Y(#:TOP-LEVEL-FORM-21-7 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-PRINT*)
  409. #Y(#:TOP-LEVEL-FORM-21-8 #12Y(00 00 00 00 00 01 D5 30 5B 3D 19 01) (SPECIAL *LOAD-ECHO*))
  410. #Y(#:TOP-LEVEL-FORM-21-9 #12Y(00 00 00 00 00 01 00 0F 00 3D 19 01) *LOAD-ECHO*)
  411. #Y(#:TOP-LEVEL-FORM-21-10 #12Y(00 00 00 00 00 01 D5 30 55 3D 19 01) LOAD)
  412. #Y(#:TOP-LEVEL-FORM-21-11 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01) LOAD
  413.    REMOVE-OLD-DEFINITIONS
  414.    #Y(LOAD
  415.       #262Y(01 00 00 00 80 1C 05 00 00 00 3A 05 03 0E 05 FB 3A 04 03 0E 06 FA 3A 03 02 7A 03 3A 02
  416.             03 0E 07 F8 3C 01 AD 8A 13 80 73 AD 7C E4 06 14 DD DE 37 01 5F 88 F6 15 AD DF 6C 0B A7
  417.             88 92 80 61 83 00 07 14 DD DE 37 02 30 F6 16 01 14 8F 00 80 B1 8E 03 80 52 98 14 0E 0D
  418.             10 0D 0E 0E 10 0E 8F 0D 13 37 01 30 8C E4 37 03 30 89 B5 37 01 30 84 E5 37 03 30 89 50
  419.             80 5C 8F 0C 04 37 01 30 8C AF 5F E6 37 01 6D 74 A7 E6 88 FE 24 A7 8A 06 29 8F 0C 29 A7
  420.             01 05 2C 06 12 14 35 00 1A 21 9E 1A FF AB 00 16 01 1A FF A5 A7 67 0C 31 66 1A FF A7 16
  421.             01 53 8F 0D 80 43 1A 2E 98 1A 5D A7 30 5C 42 F6 8F 0F 08 8F 00 05 74 37 01 30 82 16 01
  422.             8F 0C FF AE 1A FF A7 63 00 07 37 01 31 6F 63 00 06 37 01 31 6F 52 8F 0D 13 37 01 30 8C
  423.             E8 37 03 30 89 B5 37 01 30 84 E9 37 03 30 89 02 12 02 19 09 EA AF 5E 01 8E 04 79 00 19
  424.             08
  425.            )
  426.       :VERBOSE :PRINT :IF-DOES-NOT-EXIST :ECHO :COMPILING *LOAD-VERBOSE* *LOAD-PRINT* *LOAD-ECHO*
  427.       :INPUT-IMMUTABLE STRING-CHAR (#".lsp" #".fas") SEARCH-FILE *STANDARD-OUTPUT* *PACKAGE*
  428.       *READTABLE* ";; Loading file " " ..." "EOF" COMPILE-FORM ";; Loading of file "
  429.       " is finished." "A file with name ~A does not exist"
  430.   )  )
  431. #Y(#:TOP-LEVEL-FORM-21-12 #15Y(00 00 00 00 00 01 D5 D6 C2 76 31 74 3D 19 01) DEFUN MACRO
  432.    #Y(DEFUN
  433.       #103Y(02 00 00 00 00 03 9A 57 1F 1E 9A 57 57 1F 19 9A 57 74 9B 57 57 74 9C 57 57 75 A9 8B 03
  434.             0E A9 89 52 0D C3 14 D6 AB 5E 02 D5 D6 5E 01 C2 1A 74 A7 60 AD 30 60 41 03 D9 DA DB AF
  435.             77 02 DC DB B4 77 02 77 04 DD DB B0 77 02 DE B1 DF B2 E0 E1 B6 77 02 A3 78 02 E2 B6 A5
  436.             78 02 77 04 77 03 77 03 DB B0 77 02 5C 04 19 09
  437.            )
  438.       "~S: missing function name and/or parameter list" DEFUN "~S: ~S is not a symbol."
  439.       "~S: special form ~S cannot be redefined." PROGN %PUT QUOTE 'DEFINITION %PUTD FUNCTION LAMBDA
  440.       DECLARE IN-DEFUN BLOCK
  441.   )  )
  442. #Y(#:TOP-LEVEL-FORM-21-13 #15Y(00 00 00 00 00 01 D5 D6 C2 76 31 74 3D 19 01) DO MACRO
  443.    #Y(DO
  444.       #151Y(02 00 00 00 00 03 9A 57 74 9B 57 57 74 9C 57 57 75 99 1F 2C 01 02 37 01 6E 82 37 01 6E
  445.             82 AB 5F B1 30 60 41 02 A0 1F 3A 90 08 7F 09 98 1F 15 98 57 1F 14 98 57 57 20 13 98 14
  446.             80 06 16 01 1A 65 D5 D6 5E 01 98 1A 72 98 56 1A 6E 90 00 99 57 74 77 02 80 06 98 57 57
  447.             74 90 01 9F 5D 02 FB 16 01 1A 43 D7 5F D8 AF 6E 43 D9 9D 76 DA DB B0 77 02 B1 B0 DC B5
  448.             31 43 76 B3 DD 90 13 DB B8 77 02 77 03 DE 5F DF 04 16 57 76 77 03 77 04 32 02 20 78 03
  449.             77 04 5C 03 19 0C
  450.            )
  451.       "exit clause in ~S must be a list" DO BLOCK LET DECLARE TAGBODY GO PSETQ OR RETURN-FROM PROGN
  452.   )  )
  453. #Y(#:TOP-LEVEL-FORM-21-14 #15Y(00 00 00 00 00 01 D5 D6 C2 76 31 74 3D 19 01) DOTIMES MACRO
  454.    #Y(DOTIMES
  455.       #66Y(02 00 00 00 00 03 9A 57 56 74 9B 57 56 57 74 9C 57 56 57 57 74 9D 57 75 A7 5F AE 30 60
  456.            41 02 37 01 6E 82 D5 AE D6 D7 B1 77 02 77 03 A9 AF 77 02 77 02 D8 B0 AB 77 03 AE 77 02
  457.            D9 9D 76 9E 5D 04 19 0A
  458.           )
  459.       DO 0. 1+ >= DECLARE
  460.   )  )
  461. #Y(#:TOP-LEVEL-FORM-21-15 #9Y(00 00 00 00 00 01 3D 19 01))
  462. #Y(#:TOP-LEVEL-FORM-22 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "defseq" LOAD)
  463. #Y(#:TOP-LEVEL-FORM-23 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "backquot" LOAD)
  464. #Y(#:TOP-LEVEL-FORM-24-1 #15Y(00 00 00 00 00 01 D5 D6 C2 76 31 74 3D 19 01) BACKQUOTE MACRO
  465.    #Y(BACKQUOTE #12Y(01 00 01 00 00 08 9A 57 57 56 19 03))
  466.   )
  467. #Y(#:TOP-LEVEL-FORM-24-2 #9Y(00 00 00 00 00 01 3D 19 01))
  468. #Y(#:TOP-LEVEL-FORM-25 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "defmacro" LOAD)
  469. #Y(#:TOP-LEVEL-FORM-26-1 #15Y(00 00 00 00 00 01 D5 D6 C2 76 31 74 3D 19 01) DEFMACRO MACRO
  470.    #Y(DEFMACRO
  471.       #87Y(01 00 01 00 00 08 91 02 2E 00 41 04 D6 5F D7 D8 D9 DA AF 77 02 77 02 8E 05 2D 00 14 DD
  472.            DA B1 77 02 DE DF B4 77 03 77 03 77 01 32 02 20 78 03 D7 E0 E1 DA B0 77 02 E2 DA B6 77
  473.            02 77 04 77 03 DA AE 77 02 5C 05 19 07 DB DA B0 77 02 DC DA B0 77 02 77 04 5C 01 1A 44
  474.           )
  475.       MAKE-MACRO-EXPANSION LET EVAL-WHEN (COMPILE LOAD EVAL) REMOVE-OLD-DEFINITIONS QUOTE
  476.       %SET-DOCUMENTATION 'FUNCTION %PUTD CONS 'MACRO (EVAL) %PUT 'DEFINITION
  477.   )  )
  478. #Y(#:TOP-LEVEL-FORM-26-2 #15Y(00 00 00 00 00 01 D5 D6 C2 76 31 74 3D 19 01) DEFUN MACRO
  479.    #Y(DEFUN
  480.       #253Y(02 00 00 00 00 03 9A 57 1F 14 9A 57 74 85 02 14 9A 57 57 20 80 45 C4 14 D6 9C 57 74 5E
  481.             02 D5 D6 91 04 5E 02 C3 1A 70 DA 9E 1A 80 4F ED EE EF DA B5 77 02 DA AF 77 02 77 03 77
  482.             03 ED F0 F1 AF F2 DA B1 77 02 77 04 77 03 5C 02 1A 80 7F F4 AD F5 DA B1 77 02 77 04 5C
  483.             01 1A 80 77 9A 57 74 9B 57 57 74 9C 57 57 75 A7 60 AD 30 60 41 03 9D 1F FF B6 DB DC DA
  484.             A0 57 74 77 02 5C 02 14 77 02 AC DD DE B0 77 02 9D 78 02 DF B0 6B 0B 9F 78 02 77 03 E1
  485.             5F E2 AB 77 02 0E 0E 1C 25 0E 0F 1C 21 B1 67 10 E6 37 02 89 B3 18 0E 12 1B 14 0E 13 1B
  486.             10 0E 14 1B 0C 0E 15 1B 08 67 16 67 17 88 FE FF 6D ED F3 EF DA B5 77 02 77 02 77 03 5C
  487.             01 14 8E 06 FF 7C 00 14 61 21 AE 61 22 B6 61 23 A2 76 77 03 77 03 ED 61 24 F1 B1 61 25
  488.             DA BD 77 02 77 04 77 03 DA B6 77 02 77 03 32 03 20 5D 03 19 0B
  489.            )
  490.       "~S: cannot define a function from that: ~S" DEFUN FUNCTION-NAME-P
  491.       "~S: the name of a function must be a symbol, not ~S"
  492.       "~S: function ~S is missing a lambda list" QUOTE LOAD-TIME-VALUE GET-SETF-SYMBOL DECLARE
  493.       IN-DEFUN BLOCK BLOCK-NAME LET REMOVE-OLD-DEFINITIONS *COMPILING* *COMPILING-FROM-FILE*
  494.       *INLINE-FUNCTIONS* #.#'EQ *VENV* *FENV* *BENV* *GENV* *DENV* *TOPLEVEL-DENV* EVAL-WHEN
  495.       (COMPILE) C-DEFUN (LOAD) %PUT 'INLINE-EXPANSION (COMPILE) %SET-DOCUMENTATION 'FUNCTION %PUTD
  496.       FUNCTION LAMBDA (EVAL) 'DEFINITION
  497.   )  )
  498. #Y(#:TOP-LEVEL-FORM-26-3 #9Y(00 00 00 00 00 01 3D 19 01))
  499. #Y(#:TOP-LEVEL-FORM-27 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) MACRO-EXPANDER
  500.    REMOVE-OLD-DEFINITIONS MACRO
  501.    #Y(MACRO-EXPANDER #13Y(01 00 01 00 00 08 91 02 A7 2E 00 19 04) MAKE-MACRO-EXPANSION)
  502.   )
  503. #Y(#:TOP-LEVEL-FORM-28 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "macros1" LOAD)
  504. #Y(#:TOP-LEVEL-FORM-29 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "macros2" LOAD)
  505. #Y(#:TOP-LEVEL-FORM-30 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "defs1" LOAD)
  506. #Y(#:TOP-LEVEL-FORM-31 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "places" LOAD)
  507. #Y(#:TOP-LEVEL-FORM-32 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "floatpri" LOAD)
  508. #Y(#:TOP-LEVEL-FORM-33 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "type" LOAD)
  509. #Y(#:TOP-LEVEL-FORM-34 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "defstruc" LOAD)
  510. #Y(#:TOP-LEVEL-FORM-35 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "format" LOAD)
  511. #Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SEARCH-FILE
  512.    REMOVE-OLD-DEFINITIONS
  513.    #Y(SEARCH-FILE
  514.       #162Y(02 00 00 00 00 03 00 2A 01 7B 02 00 00 AA 30 E9 54 14 8F 00 0A D5 64 02 00 32 00 17 0B
  515.             01 00 AB D6 37 01 7C EE 04 5F D7 D8 AE 6D E7 D9 37 02 88 B3 07 0E 05 76 5F 1A 80 62 00
  516.             1A 78 AD 69 06 01 A8 37 05 7D 4D 00 8F 00 80 48 14 5F 1A 10 83 01 00 14 95 07 9A 57 57
  517.             56 73 00 30 AA 7F 01 A8 89 92 6C 16 02 DD A8 DE DF 37 02 6E 61 32 00 17 19 0A 83 01 00
  518.             AE A8 37 01 6D EE 37 02 6D EE A7 AB D9 37 02 88 B3 11 A7 60 6D F7 8E 05 FF AE 8E 00 FF
  519.             B8 16 01 A7 80 03 16 01 7F 01 A8 89 92 52 00 19 08
  520.            )
  521.       #.#'PATHNAME-TYPE #".*" #"" ".." #.#'EQUAL *LOAD-PATHS*
  522.       #Y(SEARCH-FILE-1 #20Y(01 00 00 00 00 02 90 01 6D E9 65 00 01 D6 37 02 30 B3 19 02) NIL
  523.          #.#'STRING-EQUAL
  524.         )
  525.       ENCODE-UNIVERSAL-TIME #.#'FIRST #.#'> #.#'REST
  526.   )  )
  527. #Y(#:TOP-LEVEL-FORM-37 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "user1" LOAD)
  528. #Y(#:TOP-LEVEL-FORM-38 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "user2" LOAD)
  529. #Y(#:TOP-LEVEL-FORM-39 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "trace" LOAD)
  530. #Y(#:TOP-LEVEL-FORM-40 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "config" LOAD)
  531. #Y(#:TOP-LEVEL-FORM-41 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "compiler" LOAD)
  532. #Y(#:TOP-LEVEL-FORM-42 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "defs2" LOAD)
  533. #Y(#:TOP-LEVEL-FORM-43 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) "clos" LOAD)
  534. #Y(#:TOP-LEVEL-FORM-44 #18Y(00 00 00 00 00 01 D5 88 CB 03 00 19 01 D6 2E 02 19 01) "SCREEN"
  535.    "screen" LOAD
  536.   )
  537. #Y(#:TOP-LEVEL-FORM-45 #18Y(00 00 00 00 00 01 D5 88 CB 03 00 19 01 D6 2E 02 19 01) "STDWIN"
  538.    "stdwin" LOAD
  539.   )
  540. #Y(#:TOP-LEVEL-FORM-46 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "USER")